#!/usr/bin/perl

my $str = "fre fre";
my $pattern = / fred | abc /x;

if ( $str =~ / fred | abc /x )
{
	print "match\n";
}
else
{
	print "un match\n";
} 